home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leisure Game Pak
/
Leisure Game Pak.iso
/
bin
/
whichmod.pas
< prev
Wrap
Pascal/Delphi Source File
|
1994-08-17
|
616b
|
29 lines
{Findfrst.PAS}
{Sample code for the FindFirst and FindNext procedures.}
{ For Windows: }
{ uses WinDos,WinCrt; }
uses Dos,eco_env;
var
DirInfo: SearchRec; { For Windows, use TSearchRec }
e : envrec;
ss : string;
vs : string;
status ,i : integer;
begin { For Windows, use faArchive }
randomize;
masterenv(e);
FindFirst('\mod\*.mod', Archive, DirInfo);
setenvstr(e, 'Mod', dirinfo.name) ;
i:=random(500);
for i:=i to 500
do begin
ss:=dirInfo.Name; setenvstr(e, 'Mod', '\MOD\'+ss) ;
FindNext(DirInfo);
end;
end.